COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	CC	SUBROUTINE FRMAT(INP)
C00003 ENDMK
C⊗;
CC	SUBROUTINE FRMAT(INP)
	DIMENSION FORM2(5),FORMT(5),INP(72)
	DATA FORMT(1)/'('/,FORM2/'A1,','A2,','A3,','A4,','A5,'/
	1, FORM3/'9I)'/
1	FORMAT(72A1)
	IEXT='DMD'
	ACCEPT 1,INP
	J=1
	L=1
	DO 2 K=2,72
	IF(INP(K).EQ.' ')GO TO 3
2	IF(INP(K).EQ.'.')GO TO 4
3	FORMT(3)=FORM3
	FORMT(4)=' '
	FORMT(5)=' '
5	FORMT(2)=FORM2(K-1)
	REREAD FORMT,NAME,N1,N2,N3
6	PAUSE  
4	FORMT(3)=FORM2(1)
C  CATCHES DOT
	DO 7 N=K+1,72
7	IF(INP(N).EQ.' ')GO TO 8
8	FORMT(4)=FORM2(N-K-1)
	FORMT(5)=FORM3
	FORMT(2)=FORM2(K-1)
	REREAD FORMT,NAME,K,IEXT,N1,N2,N3
9	PAUSE  
	END